home *** CD-ROM | disk | FTP | other *** search
/ Animation How-To / Animation How-to CD.iso / PLY / CHAPTER5 / SHATTER / SHAT.INC < prev    next >
Text File  |  1994-01-01  |  6KB  |  121 lines
  1. define d01 (a01 +b01 +c01 )/3
  2. define e01 <sin( 1)*fr*rspeed,sin( 1+1)*fr*rspeed,sin( 1+2)*fr*rspeed>
  3. define f01 <sin( 1)*fr*lspeed,sin( 1+1)*fr*lspeed,sin( 1+2)*fr*lspeed>
  4. object { polygon 3,a01,b01,c01 translate -d01 rotate e01 translate d01+f01 refl_01  }
  5.  
  6. define d02 (a02 +b02 +c02 )/3
  7. define e02 <sin( 2)*fr*rspeed,sin( 2+1)*fr*rspeed,sin( 2+2)*fr*rspeed>
  8. define f02 <sin( 2)*fr*lspeed,sin( 2+1)*fr*lspeed,sin( 2+2)*fr*lspeed>
  9. object { polygon 3,a02,b02,c02 translate -d02 rotate e02 translate d02+f02 refl_02  }
  10.  
  11. define d03 (a03 +b03 +c03 )/3
  12. define e03 <sin( 3)*fr*rspeed,sin( 3+1)*fr*rspeed,sin( 3+2)*fr*rspeed>
  13. define f03 <sin( 3)*fr*lspeed,sin( 3+1)*fr*lspeed,sin( 3+2)*fr*lspeed>
  14. object { polygon 3,a03,b03,c03 translate -d03 rotate e03 translate d03+f03 refl_03  }
  15.  
  16. define d04 (a04 +b04 +c04 )/3
  17. define e04 <sin( 4)*fr*rspeed,sin( 4+1)*fr*rspeed,sin( 4+2)*fr*rspeed>
  18. define f04 <sin( 4)*fr*lspeed,sin( 4+1)*fr*lspeed,sin( 4+2)*fr*lspeed>
  19. object { polygon 3,a04,b04,c04 translate -d04 rotate e04 translate d04+f04 refl_04  }
  20.  
  21. define d05 (a05 +b05 +c05 )/3
  22. define e05 <sin( 5)*fr*rspeed,sin( 5+1)*fr*rspeed,sin( 5+2)*fr*rspeed>
  23. define f05 <sin( 5)*fr*lspeed,sin( 5+1)*fr*lspeed,sin( 5+2)*fr*lspeed>
  24. object { polygon 3,a05,b05,c05 translate -d05 rotate e05 translate d05+f05 refl_05  }
  25.  
  26. define d06 (a06 +b06 +c06 )/3
  27. define e06 <sin( 6)*fr*rspeed,sin( 6+1)*fr*rspeed,sin( 6+2)*fr*rspeed>
  28. define f06 <sin( 6)*fr*lspeed,sin( 6+1)*fr*lspeed,sin( 6+2)*fr*lspeed>
  29. object { polygon 3,a06,b06,c06 translate -d06 rotate e06 translate d06+f06 refl_06  }
  30.  
  31. define d07 (a07 +b07 +c07 )/3
  32. define e07 <sin( 7)*fr*rspeed,sin( 7+1)*fr*rspeed,sin( 7+2)*fr*rspeed>
  33. define f07 <sin( 7)*fr*lspeed,sin( 7+1)*fr*lspeed,sin( 7+2)*fr*lspeed>
  34. object { polygon 3,a07,b07,c07 translate -d07 rotate e07 translate d07+f07 refl_07  }
  35.  
  36. define d08 (a08 +b08 +c08 )/3
  37. define e08 <sin( 8)*fr*rspeed,sin( 8+1)*fr*rspeed,sin( 8+2)*fr*rspeed>
  38. define f08 <sin( 8)*fr*lspeed,sin( 8+1)*fr*lspeed,sin( 8+2)*fr*lspeed>
  39. object { polygon 3,a08,b08,c08 translate -d08 rotate e08 translate d08+f08 refl_08  }
  40.  
  41. define d09 (a09 +b09 +c09 )/3
  42. define e09 <sin( 9)*fr*rspeed,sin( 9+1)*fr*rspeed,sin( 9+2)*fr*rspeed>
  43. define f09 <sin( 9)*fr*lspeed,sin( 9+1)*fr*lspeed,sin( 9+2)*fr*lspeed>
  44. object { polygon 3,a09,b09,c09 translate -d09 rotate e09 translate d09+f09 refl_09  }
  45.  
  46. define d10 (a10 +b10 +c10 )/3
  47. define e10 <sin(10)*fr*rspeed,sin(10+1)*fr*rspeed,sin(10+2)*fr*rspeed>
  48. define f10 <sin(10)*fr*lspeed,sin(10+1)*fr*lspeed,sin(10+2)*fr*lspeed>
  49. object { polygon 3,a10,b10,c10 translate -d10 rotate e10 translate d10+f10 refl_10  }
  50.  
  51. define d11 (a11 +b11 +c11 )/3
  52. define e11 <sin(11)*fr*rspeed,sin(11+1)*fr*rspeed,sin(11+2)*fr*rspeed>
  53. define f11 <sin(11)*fr*lspeed,sin(11+1)*fr*lspeed,sin(11+2)*fr*lspeed>
  54. object { polygon 3,a11,b11,c11 translate -d11 rotate e11 translate d11+f11 refl_11  }
  55.  
  56. define d12 (a12 +b12 +c12 )/3
  57. define e12 <sin(12)*fr*rspeed,sin(12+1)*fr*rspeed,sin(12+2)*fr*rspeed>
  58. define f12 <sin(12)*fr*lspeed,sin(12+1)*fr*lspeed,sin(12+2)*fr*lspeed>
  59. object { polygon 3,a12,b12,c12 translate -d12 rotate e12 translate d12+f12 refl_12  }
  60.  
  61. define d13 (a13 +b13 +c13 )/3
  62. define e13 <sin(13)*fr*rspeed,sin(13+1)*fr*rspeed,sin(13+2)*fr*rspeed>
  63. define f13 <sin(13)*fr*lspeed,sin(13+1)*fr*lspeed,sin(13+2)*fr*lspeed>
  64. object { polygon 3,a13,b13,c13 translate -d13 rotate e13 translate d13+f13 refl_13  }
  65.  
  66. define d14 (a14 +b14 +c14 )/3
  67. define e14 <sin(14)*fr*rspeed,sin(14+1)*fr*rspeed,sin(14+2)*fr*rspeed>
  68. define f14 <sin(14)*fr*lspeed,sin(14+1)*fr*lspeed,sin(14+2)*fr*lspeed>
  69. object { polygon 3,a14,b14,c14 translate -d14 rotate e14 translate d14+f14 refl_14  }
  70.  
  71. define d15 (a15 +b15 +c15 )/3
  72. define e15 <sin(15)*fr*rspeed,sin(15+1)*fr*rspeed,sin(15+2)*fr*rspeed>
  73. define f15 <sin(15)*fr*lspeed,sin(15+1)*fr*lspeed,sin(15+2)*fr*lspeed>
  74. object { polygon 3,a15,b15,c15 translate -d15 rotate e15 translate d15+f15 refl_15  }
  75.  
  76. define d16 (a16 +b16 +c16 )/3
  77. define e16 <sin(16)*fr*rspeed,sin(16+1)*fr*rspeed,sin(16+2)*fr*rspeed>
  78. define f16 <sin(16)*fr*lspeed,sin(16+1)*fr*lspeed,sin(16+2)*fr*lspeed>
  79. object { polygon 3,a16,b16,c16 translate -d16 rotate e16 translate d16+f16 refl_16  }
  80.  
  81. define d17 (a17 +b17 +c17 )/3
  82. define e17 <sin(17)*fr*rspeed,sin(17+1)*fr*rspeed,sin(17+2)*fr*rspeed>
  83. define f17 <sin(17)*fr*lspeed,sin(17+1)*fr*lspeed,sin(17+2)*fr*lspeed>
  84. object { polygon 3,a17,b17,c17 translate -d17 rotate e17 translate d17+f17 refl_17  }
  85.  
  86. define d18 (a18 +b18 +c18 )/3
  87. define e18 <sin(18)*fr*rspeed,sin(18+1)*fr*rspeed,sin(18+2)*fr*rspeed>
  88. define f18 <sin(18)*fr*lspeed,sin(18+1)*fr*lspeed,sin(18+2)*fr*lspeed>
  89. object { polygon 3,a18,b18,c18 translate -d18 rotate e18 translate d18+f18 refl_18  }
  90.  
  91. define d19 (a19 +b19 +c19 )/3
  92. define e19 <sin(19)*fr*rspeed,sin(19+1)*fr*rspeed,sin(19+2)*fr*rspeed>
  93. define f19 <sin(19)*fr*lspeed,sin(19+1)*fr*lspeed,sin(19+2)*fr*lspeed>
  94. object { polygon 3,a19,b19,c19 translate -d19 rotate e19 translate d19+f19 refl_19  }
  95.  
  96. define d20 (a20 +b20 +c20 )/3
  97. define e20 <sin(20)*fr*rspeed,sin(20+1)*fr*rspeed,sin(20+2)*fr*rspeed>
  98. define f20 <sin(20)*fr*lspeed,sin(20+1)*fr*lspeed,sin(20+2)*fr*lspeed>
  99. object { polygon 3,a20,b20,c20 translate -d20 rotate e20 translate d20+f20 refl_20  }
  100.  
  101. define d21 (a21 +b21 +c21 )/3
  102. define e21 <sin(21)*fr*rspeed,sin(21+1)*fr*rspeed,sin(21+2)*fr*rspeed>
  103. define f21 <sin(21)*fr*lspeed,sin(21+1)*fr*lspeed,sin(21+2)*fr*lspeed>
  104. object { polygon 3,a21,b21,c21 translate -d21 rotate e21 translate d21+f21 refl_21  }
  105.  
  106. define d22 (a22 +b22 +c22 )/3
  107. define e22 <sin(22)*fr*rspeed,sin(22+1)*fr*rspeed,sin(22+2)*fr*rspeed>
  108. define f22 <sin(22)*fr*lspeed,sin(22+1)*fr*lspeed,sin(22+2)*fr*lspeed>
  109. object { polygon 3,a22,b22,c22 translate -d22 rotate e22 translate d22+f22 refl_22  }
  110.  
  111. define d23 (a23 +b23 +c23 )/3
  112. define e23 <sin(23)*fr*rspeed,sin(23+1)*fr*rspeed,sin(23+2)*fr*rspeed>
  113. define f23 <sin(23)*fr*lspeed,sin(23+1)*fr*lspeed,sin(23+2)*fr*lspeed>
  114. object { polygon 3,a23,b23,c23 translate -d23 rotate e23 translate d23+f23 refl_23  }
  115.  
  116. define d24 (a24 +b24 +c24 )/3
  117. define e24 <sin(24)*fr*rspeed,sin(24+1)*fr*rspeed,sin(24+2)*fr*rspeed>
  118. define f24 <sin(24)*fr*lspeed,sin(24+1)*fr*lspeed,sin(24+2)*fr*lspeed>
  119. object { polygon 3,a24,b24,c24 translate -d24 rotate e24 translate d24+f24 refl_24  }
  120.  
  121.